home *** CD-ROM | disk | FTP | other *** search
/ KeyGen Studio 2002 / KeyGen_Studio_2002.iso / Tutorials / Eternal bliss / TUT11.ZIP / tut11.txt < prev   
Encoding:
Text File  |  1999-06-11  |  6.1 KB  |  187 lines
  1. How to crack Eternal Bliss's Camouglage crackme and how to make a
  2. keygen for it by ACiD BuRN.
  3.  
  4.  
  5. hi dudes :)
  6. today , i will teach u how to crack a vb crackme , and how to keygen
  7. it !!
  8. why ? coz , there isn't lot of vb keygens tutorial , do i wanted to
  9. make one !!
  10.  
  11. where to found it : http://surf.to/crackmes
  12. very good site with lot of crackmes !!
  13.  
  14.  
  15. Protections : - anti smartcheck
  16.               - serial / name
  17.  
  18.  
  19.  
  20. 1)anti smartcheck (SC):
  21.  
  22. there is some way to detect if smart check is used , so i will give u
  23. the most used !
  24. the prog , looks at the title bare of SC, and if it founds :
  25. "NuMega SmartCheck" then the prog close itself !! shit !
  26. the second way is too look at the SC window ID : NMSCWM50
  27. and if it found it , then it close itself.
  28. how to bypass that ?
  29. if u want to crack most of vb app with anti smart check , it is better
  30. to patch ur SC executable. use an hexeditor and look for NuMega SmartCheck
  31. , then change it with what u want !!
  32. but for patch the NMSCWM50 string , it is more hard , coz u don't see
  33. it with hexeditor. you can use the prog : UPK by CyberBlade a friend!
  34.  
  35. but i don't have used this app to do that , i will teach u how i did
  36. to run the crackme with SC!!
  37. firt, i have found that it is the second protection who is used in this
  38. crackme : it looks at : NMSCWM50
  39. so , with soft ice , u have to set a BPX on a API who breaks just
  40. before the message box who say , you are not registered blablabla ...
  41. then , you have to load the crackme into SC and run it!!!
  42. it will break in Sice , and the now do a research like this :
  43. s 0 l ffffffff "NMSC" (i haven't searched at NMSCWM50 to be sure to
  44. found something).type : s untill you haven't find NMSCWM50.
  45. the first time you will see that , overwritte it in memory by 0's
  46. for exemple. so when the prog looked for NMSCWM50, it just found
  47. 00000000.hehe , do the crackme continu to run and we are now in SC!!
  48.  
  49.  
  50.  
  51. 2)how to reg it
  52.  
  53. so , click on register and enter your name and a serial like 123456
  54. and the click on "check it".You will see : Wrong Try again at place of
  55. your name , so that wasn't the good one =)!!
  56. ok, exit the crackme and now go in SC.
  57. First save your project , with File/save as...
  58. coz , i think you don't want to do the first part of this tut many times!
  59. you will see command5_click , double click on it to look in this
  60. interesting thing :)
  61. now , go down with SC , to look for your name, you will see :
  62.  
  63. --------------Start of SC cut--------------------------------
  64.  
  65. Mid(varian:byReF String:"ACiD BuRN",long1,VARIANT:Integer:1)
  66. Asc(string:"A")returns Integer:65
  67. Trim(VARIANT:Integer:34)
  68. Mid(varian:byReF String:"ACiD BuRN",long2,VARIANT:Integer:1)
  69. Asc(string:"C")returns Integer:67
  70. Trim(VARIANT:Integer:32)
  71. Mid(varian:byReF String:"ACiD BuRN",long3,VARIANT:Integer:1)
  72. Asc(string:"i")returns Integer:105
  73. Trim(VARIANT:Integer:10)
  74. Mid(varian:byReF String:"ACiD BuRN",long4,VARIANT:Integer:1)
  75. Asc(string:"D")returns Integer:68
  76. Trim(VARIANT:Integer:39)
  77. Mid(varian:byReF String:"ACiD BuRN",long5,VARIANT:Integer:1)
  78. Asc(string:" ")returns Integer:32
  79. Trim(VARIANT:Integer:67)
  80. Mid(varian:byReF String:"ACiD BuRN",long6,VARIANT:Integer:1)
  81. Asc(string:"B")returns Integer:66
  82. Trim(VARIANT:Integer:33)
  83. Mid(varian:byReF String:"ACiD BuRN",long7,VARIANT:Integer:1)
  84. Asc(string:"u")returns Integer:117
  85. Trim(VARIANT:Integer:22)
  86. Mid(varian:byReF String:"ACiD BuRN",long8,VARIANT:Integer:1)
  87. Asc(string:"R")returns Integer:82
  88. Trim(VARIANT:Integer:49)
  89. Mid(varian:byReF String:"ACiD BuRN",long8,VARIANT:Integer:1)
  90. Asc(string:"N")returns Integer:78
  91. Trim(VARIANT:Integer:45)
  92.  
  93.  
  94. ------------------End of Smartcheck cut----------------------
  95.  
  96.  
  97. Now , look at this code !!
  98. did you find something cool ?
  99. look :
  100.  
  101. Mid(varian:byReF String:"ACiD BuRN",long1,VARIANT:Integer:1) <= 1st char
  102. Asc(string:"A")returns Integer:65  <=== Ascii value in decimal
  103. Trim(VARIANT:Integer:34)  <=== what is this value ??
  104.  
  105. why not tring all this value as serial ?
  106. so , take all value for each letter.You will found :
  107. 343210396733224945
  108.  
  109. so , now lets try it !!!
  110.   name : ACiD BuRN
  111. serial : 343210396733224945
  112.  
  113. click on check it and it works !!!!!!! cool we have cracked it !!
  114. now , i will ecplain you how to make a keygen !!
  115.  
  116.  
  117. 3)Keygen it
  118.  
  119.  
  120. so , how did it make this fucking value ?!!!
  121. hehe!! let me see !
  122. why not a xor operation !!!
  123. look :
  124.  
  125. Asc(string:"A")returns Integer:65    <== 1st ascii value
  126. Trim(VARIANT:Integer:34)             <== 1st good key
  127. Asc(string:"C")returns Integer:67    <== 2nd ascii value
  128. Trim(VARIANT:Integer:32)             <== 2nd good key
  129. .....
  130.  
  131.  
  132. if we do : 65 XoR 34 (do this with windows scientific calcul)
  133. we found : 99
  134.  
  135. hehe !!
  136. if we found the same value with : 67 XoR 32 , we have found how to
  137. make a serial!!
  138. let see !
  139. 67 XoR 32 = 99 !
  140. cool !! we made it !!
  141. coz if we do : 67 XoR 99 = 32 =) the good value of the key
  142. so , to make a good serial for your name, you have to take the ascii
  143. value in decimal and xor it to 99.save this value and and add near
  144. it the next result for each letters of your name !!
  145. how to code thaT?
  146. i will give source in VB5.
  147.  
  148.  
  149. 4)source of the Keygen:
  150.  
  151.  
  152. --------------Start of the source-------------
  153.  
  154. Private Sub Command1_Click()
  155. For i = 1 To Len(Text1.Text)
  156.     code = Asc(Mid$(Text1.Text, i, 1)) Xor 99
  157. Text2.Text = Text2.Text & code
  158. Next i
  159. End Sub
  160.  
  161. ----------------End of the source-------------
  162.  
  163. to test it , make a new project , with a button and 2 textbox.
  164. double click on the button , and past this code.
  165. hehe !!
  166.  
  167. Job done !!
  168. Crackme Cracked!! =)
  169.  
  170. i hope you have learn something with this tut , and sorry for
  171. my bad english.
  172. you can mail me at : Acid2600@hotmail.com
  173. cya laterz !!
  174.  
  175.  
  176. Greetings to : ALl ReFLeXZ TeaM , all ECLiPSE TeaM , ALL CrackerWorld
  177. TeaM and all CrossOver Team coz i am member in this cool groups !!
  178. also greets to : tKC , BuLLeT , Duelist , Eternal Bliss , HarvestR,
  179. Parker, Agora ... so all my friends on effnet in #eclipse99 , #reflexz99
  180. #siliconcrackers , #C.i.A , #cracking4newbies ...
  181. if i forget to put ur name here , sorry !!!
  182. too many people to greets !!
  183. Greets to all crackers =)
  184.  
  185.  
  186. ACiD BuRN
  187.